home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb3 / pro11 / demo.frm < prev    next >
Text File  |  1993-11-06  |  4KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "XLabel Demo"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   6645
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   6645
  13.    Top             =   1140
  14.    Width           =   6765
  15.    Begin PictureBox Picture2 
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   975
  18.       Left            =   720
  19.       ScaleHeight     =   945
  20.       ScaleWidth      =   5145
  21.       TabIndex        =   1
  22.       Top             =   120
  23.       Width           =   5175
  24.       Begin XLabel XLabel4 
  25.          AlignmentH      =   1  'Center
  26.          AlignmentV      =   1  'Center
  27.          BackColor       =   &H00C0C0C0&
  28.          BackStyle       =   0  'Transparent
  29.          Caption         =   "XLabel"
  30.          FontBold        =   -1  'True
  31.          FontItalic      =   0   'False
  32.          FontName        =   "Arial"
  33.          FontSize        =   8.25
  34.          FontStrikethru  =   0   'False
  35.          FontUnderline   =   -1  'True
  36.          ForeColor       =   &H000000FF&
  37.          Height          =   915
  38.          Left            =   3960
  39.          Top             =   0
  40.          Width           =   1200
  41.       End
  42.       Begin XLabel XLabel3 
  43.          AlignmentH      =   1  'Center
  44.          AlignmentV      =   1  'Center
  45.          BackColor       =   &H00C0C0C0&
  46.          BackStyle       =   0  'Transparent
  47.          Caption         =   "XLabel"
  48.          FontBold        =   -1  'True
  49.          FontItalic      =   0   'False
  50.          FontName        =   "Arial"
  51.          FontSize        =   8.25
  52.          FontStrikethru  =   0   'False
  53.          FontUnderline   =   -1  'True
  54.          ForeColor       =   &H000000FF&
  55.          Height          =   915
  56.          Left            =   0
  57.          Top             =   0
  58.          Width           =   1200
  59.       End
  60.       Begin XLabel XLabel2 
  61.          AlignmentH      =   1  'Center
  62.          AlignmentV      =   1  'Center
  63.          BackColor       =   &H00C0C0C0&
  64.          BackStyle       =   0  'Transparent
  65.          Caption         =   "XLabel Demo"
  66.          FontBold        =   -1  'True
  67.          FontItalic      =   0   'False
  68.          FontName        =   "Arial"
  69.          FontSize        =   18
  70.          FontStrikethru  =   0   'False
  71.          FontUnderline   =   0   'False
  72.          ForeColor       =   &H00FF0000&
  73.          Height          =   735
  74.          Left            =   0
  75.          Shadowed        =   -1  'True
  76.          Top             =   120
  77.          Width           =   5175
  78.       End
  79.    End
  80.    Begin PictureBox Picture1 
  81.       BackColor       =   &H00000000&
  82.       Height          =   2775
  83.       Left            =   720
  84.       ScaleHeight     =   2745
  85.       ScaleWidth      =   5145
  86.       TabIndex        =   0
  87.       Top             =   1080
  88.       Width           =   5175
  89.       Begin XLabel XLabel1 
  90.          AlignmentH      =   1  'Center
  91.          AlignmentV      =   1  'Center
  92.          BackColor       =   &H00000000&
  93.          BackStyle       =   0  'Transparent
  94.          Caption         =   "XLabel"
  95.          FontBold        =   -1  'True
  96.          FontItalic      =   0   'False
  97.          FontName        =   "Times New Roman"
  98.          FontSize        =   12
  99.          FontStrikethru  =   0   'False
  100.          FontUnderline   =   0   'False
  101.          ForeColor       =   &H0000FFFF&
  102.          Height          =   1335
  103.          Left            =   720
  104.          Top             =   720
  105.          Width           =   3735
  106.       End
  107.    End
  108.    Begin Timer Timer1 
  109.       Interval        =   1
  110.       Left            =   240
  111.       Top             =   2880
  112.    End
  113. End
  114. Option Explicit
  115.  
  116. Sub Timer1_Timer ()
  117.     XLabel1.Angle = (XLabel1.Angle + 5) Mod 360
  118.     If XLabel1.Angle Mod 90 = 0 Then
  119.         XLabel2.Shadowed = Not XLabel2.Shadowed
  120.     End If
  121.     XLabel3.Angle = (XLabel3.Angle + 30) Mod 360
  122.     XLabel4.Angle = (XLabel4.Angle - 30) Mod 360
  123. End Sub
  124.  
  125.